unit SelectDBType;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TFormSelectDBType = class(TForm)
    btn_Ok: TButton;
    btn_Cancel: TButton;
    lst_DBType: TListBox;
    lbl_DBTYPE: TLabel;
    bvl1: TBevel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  Function GetDBType:string;
var
  FormSelectDBType: TFormSelectDBType;

implementation

{$R *.dfm}


          function GetDBType():string;
          var
    Form1:TFormSelectDBType;
  begin
    Result:='';
    Form1:=   TFormSelectDBType.Create(Application);
    try
      if Form1.ShowModal()=mrOk then
      begin
        Result:=lowercase(Trim(Form1.lst_DBType.Items[Form1.lst_DBType.ItemIndex]));
      end;
    finally
      form1.Free;
    end;

  end;


end.
